(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     56085,       1499]
NotebookOptionsPosition[     55364,       1469]
NotebookOutlinePosition[     55789,       1487]
CellTagsIndexPosition[     55746,       1484]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Testitulokset", "Section",
 CellChangeTimes->{{3.414673622390625*^9, 3.41467362403125*^9}}],

Cell[CellGroupData[{

Cell["Testidata", "Subsection",
 CellChangeTimes->{{3.414673635359375*^9, 3.414673637734375*^9}, 
   3.4146751991875*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"jarvis", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1000", ",", "16"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2000", ",", "15"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"3000", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"4000", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"5000", ",", "16"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6000", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"7000", ",", "16"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"8000", ",", "15"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"9000", ",", "16"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"10000", ",", "15"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"11000", ",", "16"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"12000", ",", "15"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"13000", ",", "16"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"14000", ",", "31"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"15000", ",", "31"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"16000", ",", "16"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"17000", ",", "15"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"18000", ",", "47"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"19000", ",", "31"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"20000", ",", "32"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"21000", ",", "32"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"22000", ",", "31"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"23000", ",", "32"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"24000", ",", "32"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"25000", ",", "31"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"26000", ",", "31"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"27000", ",", "47"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"28000", ",", "47"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"29000", ",", "47"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"30000", ",", "63"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"31000", ",", "62"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"32000", ",", "63"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"33000", ",", "47"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"34000", ",", "62"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"35000", ",", "78"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"36000", ",", "78"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"37000", ",", "62"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"38000", ",", "62"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"39000", ",", "63"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"40000", ",", "63"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"41000", ",", "78"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"42000", ",", "78"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"43000", ",", "94"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"44000", ",", "109"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"45000", ",", "78"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"46000", ",", "94"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"47000", ",", "78"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"48000", ",", "94"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"49000", ",", "78"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"50000", ",", "94"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"51000", ",", "94"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"52000", ",", "109"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"53000", ",", "110"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"54000", ",", "110"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"55000", ",", "109"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"56000", ",", "109"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"57000", ",", "94"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"58000", ",", "109"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"59000", ",", "125"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"60000", ",", "125"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"61000", ",", "125"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"62000", ",", "110"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"63000", ",", "125"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"64000", ",", "140"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"65000", ",", "125"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"66000", ",", "125"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"67000", ",", "125"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"68000", ",", "141"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"69000", ",", "140"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"70000", ",", "141"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"71000", ",", "125"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"72000", ",", "156"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"73000", ",", "141"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"74000", ",", "156"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"75000", ",", "140"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"76000", ",", "172"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"77000", ",", "156"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"78000", ",", "172"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"79000", ",", "172"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"80000", ",", "156"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"81000", ",", "187"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"82000", ",", "156"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"83000", ",", "218"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"84000", ",", "171"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"85000", ",", "203"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"86000", ",", "172"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"87000", ",", "187"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"88000", ",", "172"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"89000", ",", "188"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"90000", ",", "188"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"91000", ",", "187"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"92000", ",", "219"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"93000", ",", "203"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"94000", ",", "203"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"95000", ",", "204"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"96000", ",", "203"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"97000", ",", "203"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"98000", ",", "219"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"99000", ",", "219"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"100000", ",", "203"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"101000", ",", "250"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"102000", ",", "235"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"103000", ",", "234"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"104000", ",", "234"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"105000", ",", "218"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"106000", ",", "234"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"107000", ",", "203"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"108000", ",", "218"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"109000", ",", "250"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"110000", ",", "234"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"111000", ",", "281"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"112000", ",", "235"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"113000", ",", "297"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"114000", ",", "266"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"115000", ",", "313"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"116000", ",", "281"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"117000", ",", "266"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"118000", ",", "265"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"119000", ",", "297"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"120000", ",", "297"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"121000", ",", "281"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"122000", ",", "297"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"123000", ",", "312"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"124000", ",", "328"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"125000", ",", "281"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"126000", ",", "313"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"127000", ",", "360"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"128000", ",", "343"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"129000", ",", "313"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"130000", ",", "281"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"131000", ",", "344"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"132000", ",", "344"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"133000", ",", "359"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"134000", ",", "359"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"135000", ",", "375"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"136000", ",", "359"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"137000", ",", "375"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"138000", ",", "328"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"139000", ",", "375"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"140000", ",", "390"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"141000", ",", "359"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"142000", ",", "406"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"143000", ",", "437"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"144000", ",", "375"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"145000", ",", "375"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"146000", ",", "390"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"147000", ",", "422"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"148000", ",", "422"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"149000", ",", "391"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"150000", ",", "390"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"151000", ",", "437"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"152000", ",", "359"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"153000", ",", "328"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"154000", ",", "421"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"155000", ",", "469"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"156000", ",", "468"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"157000", ",", "422"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"158000", ",", "469"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"159000", ",", "437"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"160000", ",", "500"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"161000", ",", "454"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"162000", ",", "516"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"163000", ",", "437"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"164000", ",", "485"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"165000", ",", "468"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"166000", ",", "515"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"167000", ",", "531"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"168000", ",", "500"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"169000", ",", "547"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"170000", ",", "578"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"171000", ",", "500"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"172000", ",", "594"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"173000", ",", "531"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"174000", ",", "484"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"175000", ",", "562"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"176000", ",", "547"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"177000", ",", "547"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"178000", ",", "578"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"179000", ",", "484"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"180000", ",", "562"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"181000", ",", "516"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"182000", ",", "672"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"183000", ",", "578"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"184000", ",", "593"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"185000", ",", "610"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"186000", ",", "547"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"187000", ",", "625"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"188000", ",", "594"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"189000", ",", "547"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"190000", ",", "609"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"191000", ",", "610"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"192000", ",", "641"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"193000", ",", "703"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"194000", ",", "672"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"195000", ",", "687"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"196000", ",", "640"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"197000", ",", "562"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"198000", ",", "609"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"199000", ",", "687"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"200000", ",", "703"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"201000", ",", "735"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"202000", ",", "735"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"203000", ",", "766"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"204000", ",", "703"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"205000", ",", "656"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"206000", ",", "609"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"207000", ",", "796"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"208000", ",", "891"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"209000", ",", "750"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"210000", ",", "781"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"211000", ",", "843"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"212000", ",", "859"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"213000", ",", "765"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"214000", ",", "703"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"215000", ",", "891"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"216000", ",", "765"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"217000", ",", "844"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"218000", ",", "906"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"219000", ",", "766"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"220000", ",", "1000"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"221000", ",", "765"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"222000", ",", "1297"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"223000", ",", "891"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"224000", ",", "938"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"225000", ",", "719"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"226000", ",", "750"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"227000", ",", "860"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"228000", ",", "828"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"229000", ",", "781"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"230000", ",", "953"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"231000", ",", "953"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"232000", ",", "828"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"233000", ",", "828"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"234000", ",", "735"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"235000", ",", "766"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"236000", ",", "765"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"237000", ",", "860"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"238000", ",", "828"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"239000", ",", "969"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"240000", ",", "875"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"241000", ",", "813"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"242000", ",", "813"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"243000", ",", "984"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"244000", ",", "875"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"245000", ",", "906"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"246000", ",", "828"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"247000", ",", "906"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"248000", ",", "921"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"249000", ",", "1031"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"250000", ",", "1000"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"251000", ",", "907"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"252000", ",", "906"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"253000", ",", "953"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"254000", ",", "1000"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"255000", ",", "1000"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"256000", ",", "906"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"257000", ",", "1110"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"258000", ",", "1015"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"259000", ",", "1047"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"260000", ",", "1094"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"261000", ",", "906"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"262000", ",", "844"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"263000", ",", "1157"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"264000", ",", "1015"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"265000", ",", "891"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"266000", ",", "1062"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"267000", ",", "985"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"268000", ",", "1141"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"269000", ",", "1078"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"270000", ",", "1062"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"271000", ",", "984"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"272000", ",", "1000"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"273000", ",", "954"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"274000", ",", "1203"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"275000", ",", "1187"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"276000", ",", "937"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"277000", ",", "1188"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"278000", ",", "1062"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"279000", ",", "1297"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"280000", ",", "1125"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"281000", ",", "1078"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"282000", ",", "1219"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"283000", ",", "1250"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"284000", ",", "1078"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"285000", ",", "1266"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"286000", ",", "1312"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"287000", ",", "1031"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"288000", ",", "1188"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"289000", ",", "1094"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"290000", ",", "1250"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"291000", ",", "1266"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"292000", ",", "1172"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"293000", ",", "1063"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"294000", ",", "1063"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"295000", ",", "1359"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"296000", ",", "1296"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"297000", ",", "1109"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"298000", ",", "1297"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"299000", ",", "1313"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"300000", ",", "1312"}], "}"}]}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"graham", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1000", ",", "16"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2000", ",", "15"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"3000", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"4000", ",", "32"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"5000", ",", "15"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6000", ",", "16"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"7000", ",", "31"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"8000", ",", "47"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"9000", ",", "31"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"10000", ",", "32"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"11000", ",", "46"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"12000", ",", "32"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"13000", ",", "47"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"14000", ",", "47"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"15000", ",", "63"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"16000", ",", "62"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"17000", ",", "63"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"18000", ",", "63"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"19000", ",", "78"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"20000", ",", "78"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"21000", ",", "94"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"22000", ",", "78"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"23000", ",", "94"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"24000", ",", "110"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"25000", ",", "93"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"26000", ",", "94"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"27000", ",", "110"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"28000", ",", "109"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"29000", ",", "125"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"30000", ",", "125"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"31000", ",", "140"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"32000", ",", "125"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"33000", ",", "141"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"34000", ",", "156"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"35000", ",", "156"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"36000", ",", "156"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"37000", ",", "156"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"38000", ",", "172"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"39000", ",", "156"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"40000", ",", "187"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"41000", ",", "172"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"42000", ",", "187"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"43000", ",", "188"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"44000", ",", "187"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"45000", ",", "203"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"46000", ",", "219"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"47000", ",", "203"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"48000", ",", "203"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"49000", ",", "219"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"50000", ",", "235"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"51000", ",", "219"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"52000", ",", "235"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"53000", ",", "250"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"54000", ",", "235"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"55000", ",", "250"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"56000", ",", "281"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"57000", ",", "281"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"58000", ",", "250"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"59000", ",", "312"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"60000", ",", "281"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"61000", ",", "266"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"62000", ",", "297"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"63000", ",", "297"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"64000", ",", "296"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"65000", ",", "297"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"66000", ",", "313"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"67000", ",", "297"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"68000", ",", "313"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"69000", ",", "312"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"70000", ",", "359"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"71000", ",", "328"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"72000", ",", "359"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"73000", ",", "375"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"74000", ",", "391"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"75000", ",", "343"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"76000", ",", "375"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"77000", ",", "375"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"78000", ",", "391"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"79000", ",", "375"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"80000", ",", "391"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"81000", ",", "375"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"82000", ",", "406"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"83000", ",", "406"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"84000", ",", "422"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"85000", ",", "422"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"86000", ",", "438"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"87000", ",", "438"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"88000", ",", "422"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"89000", ",", "454"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"90000", ",", "422"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"91000", ",", "485"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"92000", ",", "469"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"93000", ",", "453"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"94000", ",", "453"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"95000", ",", "485"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"96000", ",", "468"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"97000", ",", "500"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"98000", ",", "500"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"99000", ",", "484"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"100000", ",", "516"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"101000", ",", "532"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"102000", ",", "532"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"103000", ",", "532"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"104000", ",", "531"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"105000", ",", "531"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"106000", ",", "531"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"107000", ",", "531"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"108000", ",", "578"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"109000", ",", "594"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"110000", ",", "578"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"111000", ",", "594"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"112000", ",", "625"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"113000", ",", "625"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"114000", ",", "610"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"115000", ",", "625"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"116000", ",", "609"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"117000", ",", "594"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"118000", ",", "579"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"119000", ",", "610"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"120000", ",", "609"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"121000", ",", "625"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"122000", ",", "594"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"123000", ",", "640"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"124000", ",", "640"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"125000", ",", "672"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"126000", ",", "657"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"127000", ",", "672"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"128000", ",", "671"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"129000", ",", "657"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"130000", ",", "657"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"131000", ",", "703"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"132000", ",", "688"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"133000", ",", "671"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"134000", ",", "719"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"135000", ",", "703"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"136000", ",", "719"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"137000", ",", "719"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"138000", ",", "718"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"139000", ",", "719"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"140000", ",", "750"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"141000", ",", "766"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"142000", ",", "719"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"143000", ",", "766"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"144000", ",", "750"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"145000", ",", "781"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"146000", ",", "765"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"147000", ",", "750"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"148000", ",", "875"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"149000", ",", "797"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"150000", ",", "796"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"151000", ",", "844"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"152000", ",", "797"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"153000", ",", "812"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"154000", ",", "828"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"155000", ",", "860"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"156000", ",", "843"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"157000", ",", "828"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"158000", ",", "828"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"159000", ",", "875"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"160000", ",", "891"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"161000", ",", "875"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"162000", ",", "859"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"163000", ",", "922"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"164000", ",", "890"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"165000", ",", "891"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"166000", ",", "875"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"167000", ",", "906"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"168000", ",", "938"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"169000", ",", "969"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"170000", ",", "907"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"171000", ",", "906"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"172000", ",", "968"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"173000", ",", "938"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"174000", ",", "937"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"175000", ",", "984"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"176000", ",", "969"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"177000", ",", "938"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"178000", ",", "969"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"179000", ",", "1016"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"180000", ",", "984"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"181000", ",", "1031"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"182000", ",", "1047"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"183000", ",", "1015"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"184000", ",", "1015"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"185000", ",", "1062"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"186000", ",", "1016"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"187000", ",", "1078"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"188000", ",", "1140"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"189000", ",", "1125"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"190000", ",", "1094"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"191000", ",", "1078"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"192000", ",", "1078"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"193000", ",", "1062"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"194000", ",", "1156"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"195000", ",", "1110"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"196000", ",", "1078"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"197000", ",", "1109"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"198000", ",", "1141"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"199000", ",", "1109"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"200000", ",", "1156"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"201000", ",", "1187"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"202000", ",", "1125"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"203000", ",", "1156"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"204000", ",", "1219"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"205000", ",", "1250"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"206000", ",", "1219"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"207000", ",", "1219"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"208000", ",", "1313"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"209000", ",", "1282"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"210000", ",", "1265"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"211000", ",", "1266"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"212000", ",", "1250"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"213000", ",", "1313"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"214000", ",", "1313"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"215000", ",", "1250"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"216000", ",", "1297"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"217000", ",", "1391"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"218000", ",", "1312"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"219000", ",", "1312"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"220000", ",", "1344"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"221000", ",", "1328"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"222000", ",", "1422"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"223000", ",", "1407"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"224000", ",", "1343"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"225000", ",", "1344"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"226000", ",", "1406"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"227000", ",", "1453"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"228000", ",", "1359"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"229000", ",", "1359"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"230000", ",", "1391"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"231000", ",", "1359"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"232000", ",", "1407"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"233000", ",", "1344"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"234000", ",", "1453"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"235000", ",", "1359"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"236000", ",", "1406"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"237000", ",", "1375"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"238000", ",", "1438"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"239000", ",", "1375"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"240000", ",", "1437"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"241000", ",", "1453"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"242000", ",", "1547"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"243000", ",", "1422"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"244000", ",", "1438"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"245000", ",", "1469"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"246000", ",", "1469"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"247000", ",", "1438"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"248000", ",", "1500"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"249000", ",", "1484"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"250000", ",", "1546"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"251000", ",", "1484"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"252000", ",", "1468"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"253000", ",", "1594"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"254000", ",", "1531"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"255000", ",", "1641"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"256000", ",", "1562"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"257000", ",", "1594"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"258000", ",", "1469"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"259000", ",", "1532"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"260000", ",", "1500"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"261000", ",", "1703"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"262000", ",", "1531"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"263000", ",", "1547"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"264000", ",", "1656"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"265000", ",", "1688"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"266000", ",", "1578"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"267000", ",", "1610"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"268000", ",", "1688"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"269000", ",", "1656"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"270000", ",", "1719"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"271000", ",", "1781"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"272000", ",", "1625"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"273000", ",", "1625"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"274000", ",", "1703"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"275000", ",", "1719"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"276000", ",", "1625"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"277000", ",", "1797"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"278000", ",", "1687"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"279000", ",", "1719"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"280000", ",", "1734"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"281000", ",", "1797"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"282000", ",", "1735"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"283000", ",", "1703"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"284000", ",", "1813"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"285000", ",", "1719"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"286000", ",", "1719"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"287000", ",", "1782"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"288000", ",", "1797"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"289000", ",", "1891"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"290000", ",", "1843"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"291000", ",", "1735"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"292000", ",", "1797"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"293000", ",", "1875"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"294000", ",", "1750"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"295000", ",", "1828"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"296000", ",", "1890"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"297000", ",", "1891"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"298000", ",", "1828"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"299000", ",", "1875"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"300000", ",", "1906"}], "}"}]}], "}"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.41467496971875*^9, 3.414674977953125*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Testikuvaaja: x-akseli on pisteet ja y-akseli aika millisekunteina, ylempi on \
Graham ja alempi Jarvis\
\>", "Subsection",
 CellChangeTimes->{{3.414673642328125*^9, 3.41467364509375*^9}, {
  3.41467396465625*^9, 3.414674034234375*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ListPlot", "[", "jarvis", "]"}], ",", 
   RowBox[{"ListPlot", "[", "graham", "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.414673555609375*^9, 3.414673593171875*^9}}],

Cell[BoxData[
 GraphicsBox[{
   {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJxdl19QlFUYxs+C/JFdcBebQWcit5n0Ip1Gu9AuME+jkRYzMJS1Mzi4GUyG
U65laIZ2QqqVDLdaHQdp2vRCvUgvtCl1nD5jUph0MJTCsFwshDRUQkPApKn3
OY3Ptzfv/uZ5n+d9z/n2u9j7l60srUxRSs3wKPVv/e+jt2j5MlOq/hT8kNTI
bq3u/uj9zNED7I98yXroiCv/a86PH2M92sx6zbeu/BOsV7SyHvoOPE9q0Slm
3cb9jadd+3wv1TwhtaGd/dEzYC219ixzTQf3V//AeuRH5qpO7q84x1z+E+8T
6mIuPc9c9DO4WGrhL8gD6wus5yfZ35jk/rxu6E9Ljbs4cJH7G1zs/ZXnRV2c
9hvn1bp4zPJzUmt6cI4yqcM93F99ifsHL7Ee6WW9v5f1qj7We11c8TvP7wYb
cPll5q7L3B+6wtxxhfNL/2C9zfJSqUX9zK0uLrzK85uvsq6vQX9e6tFrrOdf
JzZlzKoRnBC/6bzOeXkDrC8eYH8cbF4QvZ37VeBP1ostQ2+wXCn6Se5X3kHW
FzGr6CD1m+Pg8ItS026wPh+sV0itBYeR71h+SeqY9UOfe5Pza26yftgy9GFm
M+cv9ldbln3MQcuYP8hsZg0hD3pkiPV9zKrfMvKn3yJWVbfYvwesV0rttfrL
ok8dhi6sKpjNTsvI73bpU0Z4v/IR6jdNljG/a4T9k0eFY6ukhkZ5v21Wf1Vq
BzgREX3ibeivSS21LHkmdpv6VZvV4c/+m/OLmE29ZezX6tIz7ggbzC+0vFr0
ujvsb7Ys/cYzhv5qqRoceV30DWN8vqOWcb5R65d+la8eu5t1ATgi+aaM2Vln
eY34G1nXh1g3nTZfzucMufx5HuHwWvHP9vD8xVZ/Q/yrwSVvij/uoTx9gNm0
c74zYHmd+AMpxHomOCL9pjiF/a+k8PyGFD7/5yl0XnPS9ku+c8XyevF7U4W1
sH4wlfYxi1Kp31meyvOj1v+W+Hdbf434j4ODRvw9Ln/aOPAG8T8wjvYx88GT
4F8G3i6sasfx/M9s/9vid8D+WvFf4H41Bo6Jru9Lo3wzF6xlP2cJOCb5qiaN
5ukdzOZwGs8/x3lqmPP0pHS6LzMHrN4R/7PplKeqwVHsv9XqG8V/MJ32cc7Y
ftHVYDqfPzeD958FzpR+pySD8lXE6nXi3wK+JfuafRm8/ynwWmHVb3X4fZl0
H2Z6Js9/MpP9VZk0T2+y/K749zA7J8DX3xN/r8ufPh7vj+xjpo7n+QvAyaj4
K8Cd74t/Izgi+WYneLn0O8fAoXrxd1u/sFZZwn3wT8mi/ZxHs2ieKud+vR4c
ljzTBC7ZLP4jWXz+LjD+t+kR1/zJXuEFcfE/4uX5IXDJB+JfA16L+9/mpftw
vgAncf4Oy5vEf8NL92Um+oRbJN95mFmV+ti/itnEfPz89/v4/G0+vr+rPtrP
ZGdTnjMDvLBB/EXgEJ7/CvByzK9ndvaCHfhbXf6+bHpeJiOH50/LIV0VgluE
dSX43pj463Lo+Tq7wCH4mzlPX8yh+zWeCewPMis9gf1LwaEPxb8B/BX8n4CX
yH7qKHiS9OvznGdGJ9DvOZztF77nI/Hn+yk/McPP72MBeLvMSz4FbpH7N2Xg
szI/uML6pd9Zx/5wvZ+fX6Of7iOxF3wa78Mh8EnZN9kC3ixsOsELpT/YB46J
7gy55mcE6H1UeeC47J+YFqD99Wyw72OZ/zg4KmwWc3+wEtwiurMabGReuC5A
vy8VD9C+iV0Bfp4HeF7yG8437eAS8Qcvgptw/wPMYU+ucMFWmR8Aa9kvEQQ/
g/kzc+m+kvPAdcKmOPf/8/0DXZ35rw==
     "]]}, 
   {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJxd1lFM1WUYBvAPFUE5RzjYBm6Spy2dS9awC/VC82saabHhSOtsODwZLMOV
xyI0Q/qGVEcypDqaIa6TtqkX6YW0UnN9RqksHYZSx7A8mMpJRVE0RSVavs9/
6/l78/rreZ/v/cNF86HFy4rKhiilcpOU+m/e/6PXa/lLnkz9GfyozNB2rf7/
R++GtczwHtf+1/xeYD88E+9/J9M8JTNykPNwC79f9SOM/dBhzktb+b3AT+yC
Y3Ah7rehDzce5zzyM7u+HX4W33eCXXMSfh7f28F55S+ch36Fi2WWx/BdyEtP
8X7Jb7wf6MQ+XHQaXoSf93d2/h/ov4D/fobznLjMKPJG2LwoM6uLHXHZd5Zd
77hMZtqfnIfh4Esyk8/xfs05zgedHK46z3m/45dlVl6Al8rsu8B5qJvd0837
5Qn4FZndCc5L/+K8C9bLZJZc5LzzIueBSzIblsvscLnoMu+3weZ1mQU9vN8K
R0My868gf01mi8v6Kt6DD1zlPKcXlnumuJfzRlce6+Xvy7omM1Qp+QLYVMiM
uPJ2xytk+q7DKyUvdPyGzPrrtG+OslVaH/fn9nEeduWHXHnyDZnBNyWfxVY1
jldJbtlq0PFbks+4SVZVN7m/z3GVzH5XPvVv8bxqmZWOV0ve7Bj9PraZfIv7
IVijv8vx2zJ72GbSbRj9cthvJN8BR8Wqm23G93NeCm9CvpWtulz5uDucl8AZ
NZI3wQ1i1enKx9zlPACH10i+ka064Azko+9xXgSnIm+4x++3wdm47x2g91TB
APfrBvj91gF6z6T8I1a1MvPZptbxOzJb4DDypEHONXwbefUg7asDbHPX2Uc/
Rz1xfxqxng477xXDK9+9b7vKydFv5FzvZZsYHEL/FucqKwn5e9KfAveKzYIk
vl/BuYq4+nvgJWHpt8MJye013le+IeLA+9LPgxPoF8JxsX0VDtZJv5739ZdO
vlb6R52+2F5yjH7aUNwX60eG0r6Zy7ZLhtL3qjAcw/dv59wccnJ5356Hj6+T
fvIwGP2Hh9F7ZtYwes8uhuehX+P4A+l/Ds+pl751+rJvz7j6g7CWff1gMr1n
ZsBzxHYhbGVfVSXTPb3Z1d/HuT3l9PHv5H5+T2cPF49tkP5UeKHYPgd/g34l
W2+AN6HfPJzu2RNwTHLVBx//UPqZKeKI2EyGs8V2Xgr3Q2y9PoXv74IzPpL+
MTgg76keV9+TKp6P+5Pgk7j/NOeqPJXe12vhdWKzI5V+HnuY91U37PlY+sNH
iMNiM34E5XY2W5XCtRHpr4FTxWYr/AP6B+Ej6HfxPa1G0ntmHNs+PpL2VQk8
G/dXw99ukH4TbNDfz1adsJJ9fQe2uD8mTTxto/SnwfdkXwUc4/6KNHrPbIRv
i+1XcLO8pzrg6bh/g21Ge+jnsY95KFdFHvoevdzD9xs8dM/udvXbPPR9+gpc
hb7Xi///o5/rpVwVwBWS66Veumfq4NxN0t/ppd+nauX3dQK+gX7KKLKdMIr2
VT4c+kT6ZXCe2NTCE3F/G+eqBe7F/bNwQvZNUrr4suxbP/zFp9LX8BLZ14vS
uV+dzt+/Be7F/QPp/P2n4aZG6d/l+0FvBv0+VQ4cl++J5sJB6evp8A7Zjz8D
T5R9U8z7/qX8nl0Fn5Y8WAef3Cz3G+FS3N/J1nsz6OeJH+H3TIz3/Qn4gSa5
fwteiPspPuqrLDhbvic6wUd9PQUeK3n8SR//fhfA82XfX8bv2wp2sBaO4eeP
8L3oNnjdFrm/Bz4qefx7/h7Tzn3/WbhA+vYaHJD9YFKmuEH2lQ8Oy37Un8n3
83g/PjOT3jeF8JEt+l9SMBs6
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  ImageSize->{549., Automatic},
  PlotRange->Automatic,
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{{3.41467356575*^9, 3.41467359390625*^9}, 
   3.41467521371875*^9},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztnQ2MplV1gD9mv/nbmdkfF3ZZgrtbDJIWliC0uyguLMIuIz/rsrgsf+uy
4MJS5HcHQcRSbFIaWjRqtVanKkgxCkqNf8REx0hiJS3a1pBWYzNpk0rApjXG
lCDVcd573/f77n3f5/zMfrOTNUrYd745c++55557/u65573fRXsn9u+7ae/E
DdfuXXfe7Xtv3X/DtQfWbb3l9lnQoiNarb7jW60jtq1rFZ9nWq3qMTP7f3yc
UDwK8JwBbwk/2q3pyfFW9d/E1ExfAC9qTU1E0Pjk9OxvTRi1I9jrAmyoA5sF
tqYjIWk76truYdiNAdbfGLaYbV8ADBSzbc00Sell2A0BNtwdtsvY+jDYvxdO
xykP4Niz0zZm3fvI7WTk8dbkNIrSfE869m2tin8qtSNO7rzwXDXbfKI1VcCK
fhNT5cQDhbEtwZ2w14bflsw+p1uT4+U4fpxxRkt7ImFDyZWUhCjCg+rU52/s
NUGritWYmZlqTRY/vTh7Y38ld7XhFy3Awp8efntl5PpEadIWZtblyqkyPz05
EZoWnOko/CyqyCWGe2GSzDv7V3LXCwmazGtTn4+xN5YrPz05Odep98z608t5
p2NX0n4ol7wr7VOtiVbk90LNWZH2reF5dGtmenLW40Syor40SSC4EyYJvLN7
JXQ9UIACHxd+yJr9fAxfyXxY/4418vXtkfkdmU/H7luYhd+YuLcylFrIqSuS
f254HlMyIJCmGqMelfCwMfkQafk4MB8kREk8tuOHF8gCvrY27AKtecfmzw43
OTWn9T6UNn9LeK5uTU1295FV19+Q6D7iHXaxYD5o+IPw29ok6iiigLnh6HUp
NpTODmko2kVexOkedQhJWDurENMl22dJGD9sQv8tJYe65iHhzvzs86M+tEth
7Fggb/feEyvC0Oak52fkQuI68IVIbmzUhj6kK90ZuTPEgk1ayeiEZ3iMHZpG
o3mjmZkn75j48sxZm/76+e3bHi5+/tWDf/HUXX/7yHerz108UcRaAV3xoRUe
RxaPAXWIex5+6Jn/veD8Tzx5x4EvTt1y8xeu/sqX/2386W//Z/W5H8hf8ltY
5PRhQsuvL6yUyv7iT5WwF/+e3bP7sVIVB1L4t/df/0T4ecP1T/QVH1qLio9F
9+JnK4WVOlJqeX+lN9nfFh12HPmtJP96wlI7//IbNn80CGIQx1KMK2Dx75eb
zyx/bvpIKbLFx6Jv8bOVwmY/vbjlnMlKjKd37Xy06tr52+EkxmsBdjHAdjj7
Hn5LbRmywqX+39ZzJl869w2Tkw/82TfK5VlWwH82vvVjP9qx/ZNP3XTj54vl
++drrn78udnfq8+F233wg3/5rdnPj/3r7qs+XXwuYI/d+66vRqkY+uKdd3yl
alZ56TQoKKOaFKTawBOci+NdRC+sqTedPy0SpzBWyX8h99Xnl8+JqlUPj4oe
RZtKn4KuVGPU9KnCkboRgmV6FzD9hzmPlOZy3GVpjFV9/vG2Cx+qz62iuWhT
CUXRJwZ8S+tdK/J+sfmsjxAsFRov+Smp5S5qLGVz9fdCRgvYf+24+JHqcyZp
St+ULoK1alKdLkm11Mmy5qIT/vKsPM/F4jINkbilItCGrqM5LLXoIIF5Xyep
2ZL05aIgsbCuGRmO0RxHaoKiqMzMaEtuGplA/T/K8zoqPIervj9943kfq2tl
B9fyfImLtiV/+1Otry0lrkeTxqdNGis8L5179kdJ9cKYkcbFadsCXtfoiv+l
tKXsr5qnaH0UZpKQjlSg/ffLd32qztFMMkYCjgGSpi6lvMjl3+rCVwhJyfCx
VFfrApn+3tTfr8rTPjbX1ZRjqSCsyC1+tl5xk9yu/lbB+/JlrJaOrEJnfWxC
NaPX5XFuw5Ywb8MSl8TXXURJvCQN9VEt4teF54i0SuSMiyMiwZGPyqvdlYRU
ugYlw/64SbK0XOR3K5LBgoxKeFKRSKVqUDLwKcmB4nWyCU9NbB2Wad/KgONI
rV99yS3j0N1mD1SgIvqsmhWo29KyPCIvy/Eii1k5j4b2i7l9YtwHJDtAPttJ
MvhdVsmjoX0keazensL9xkK1AZ9F8/pobUiZ0uU6MTRbXm8mNdfaYeAeiPmg
SaZlvUsyacGpudYO43IfmYvJudWD3mLavxuar6HFljS8QJG2I22s2lFQ1sgM
v0eezWuil5cs2qnAoMi0QZWxfTpaJ1WSuToVlKCkSuNzRZXq+BSqNuSOz6Mk
5aHloBbi4FalJFVd1nebpKZhjKUoFalajINbFc9am6QuTYOW+uKlikECX8rL
Gi3Cqdqnfiv1ZZJblFagsRp3yVPcJHIth52eW0BprxnDvGGJ4U1rZpMG/iyH
laRZe8uSNEnDmm5LIW1zNLRen3MGaNGQrEXJyUGWNwjP20yqvC7mDFjmIVlh
kkRwliLwUTWmLU/qSVIzhNmT00AE2nl8QOkDT9ogydj0Y+xA5nBYiid2JTwJ
LBkPgH6yYph8eR0s0EgOS2LJfsXb5TiGpdBil7yK400lqziccvP1sDgjzahE
sqbJzjJDMQwwi+LzRdelu7zToN8owOLOibMMtBEUs36XmnMA66z7wtOg3yjA
BnOJzCSHdoZiOtCeA5jx0Xp0Wd+41dfmZEA1CrByWnNM0i6tfK20LdV8bmTD
m2Q2XCwbZ1rCbbKe44q3ZcPdiXRs6jyb8OL3bbJKU/OSODW4VYi7VHaV0mHS
VoCNSAr4ZnNoia2kD1ttq93VG3toPclJG418hptFi5zD+qFvxNdOdxWdmHKL
TPlbYbaXAqxEX09oOtFn1F8qcqORcrTQX6nYdRK1SwA2ADBiMGWmqG+g7BST
ZrTjJKOXAGwAYP0Ao9QU9XXSrBjpLNqg+Lp2opKxLL7nNajZb9xNlEPXh6vn
TqjrAMAsLuzjlTPt/QWiNzezVGHgMxOSAkX7cpdMmT8y7ReI7tc8QmjQUWPN
1aAIw/nq0MargF3gNP9yegP071STVIiyzR0zLSS5Czm9AWpnkwrh9cicTmfH
Rb8SFr4exlmuiyLsVdJKDMvTmwCW7ALYUQBbJbHTHi+byy6AHQWwVZK9UMZ7
J/BklyjFykH3enMMk4faeYg1xoHwtGI68PGdaKTKuNknuuwgyB8vkyRuxJyJ
FCJeaRtqaQ9A3neZJKM2hVIkeaVuwjXr3w9dl0lSrVB4lyjBIyTB4ibs8tAH
83IkA/2WkqwySQaFGLEccNanJNm7L+y3dM4kuVPWRdvcNBNX3w5XChcpHpXE
KZWRdAjhFGRu5TlKQd7dsCC18yCMpK4VFXSO1s6mTTsVIvWqaAPV9B/zNmgL
pN2vcHqvZAWPlWd4v8KdvZLNsvEpVn2xt05nJzBM0/w5Je+Ud3H+PPorrtfR
ZXK3ws055eVs8rgiRxfL3Yq4yeIJLkEh7z3KCl0Fq7EYYBTy05b7RZMMXImr
gOtUp0nhPO2ibTIUjjOntgPnqT6TMkJUz6GQ+AGR2cy9m6H9yyZ6YCJz5WZo
b6MnsTXFJ9o3s4iFtIDQ/Uym8sNOSSopsgIROgiyRzeFhPgWdcXMCdBBD20N
KUn2w0h5NO2uW9uUV3CziX/IKQi0FDdCuyXQjlJo5YzioeyofltTE0Zv3HzI
KUC0rDdCuyXQjtJgtZloN/EATJkJCGN/3XeJR8lvldfQ1FIS8hfiLKNBHjPv
XiFYmGp4RefjUY7r4cN1TgdDIcELqYYsdV+TQTBakocixfWI4jrgKFQ/WBmi
kvgoXUt8t1v4lOJRWMrrnOq9Etp9P6XUfAnda4QehdFJGEiAV0K778uGPg41
kObxmmn3wXqFRBZ4XAFUUMZlCGAUoCjUfipqvZJCH6yXRmSByDXAnCGA/cgi
YYmWPK+XOqQe8BpRQ3KYQkGyn6KMeeMMb8xp0v7BNyRkvhuWa8xppZxDwqa4
Y0+K1EVzU4OSZ25UaGPxdYPEV8O0KJtHhfxO3KRZGewYgCm4vxCeemkMsWIn
wGjfRRGb8hJZSY66S6a91k6ne6RwyySnE75KBStDubJVGTOKH2IJhX4+SXvp
5EUa6x2HZ+T5fCnqi5R1JPNH8rsDYMtln5TBUuoCcV/qeh3aGpC+ktzvANhy
gJGfVDj2NYd+aOlL2gdoWSgqKyS9+pxJsqpDWlaTAn4t/0zbSdI9heT4btfi
OkfS0/e0IrpWNV+vI/3DpkQ1N+ScPqCNKCVJzLmYm3DK590EsO+aI1mbazIn
NwFMGemZ3MBVnLwNBJMs0pSJuR403Oa0JiZmPMsCaUBlpC0M2Q9KVfydTNm/
wEQ0hbwH2tvo3ScF90B7Bf0/5QxLLSLutkkgtgNsOcCeMskgK4dV1SQ9251+
zCTDLJBu50xLjRkma5fn65WdlhFDlZdjfwgT2u9ULxttRvV+p76kaAPWHzgN
yR6AkcekvksA9pA8vx84WbQHYOQRqS8lBG2SSLHrgpWWQbhfabgE8JNDpCWl
jCCVVSgvs02bGu1/1+EBgJlDj2pa7H1n4QGAKSOH5w7FB9F7Cff68KEzoXcE
FHwvwPDyHTg57HLF6ZDWrgYYBV82uVANYCcgrgfYaoA9aA4PB/52wuF6gK0G
mDL8j8Nz7q927naaS3nhxYquWADXiBzvMSfh2L7ky7LbaWBlcRD3xeUk6kGq
OQk0KPUtSRoL7JYtMC2iU87EvTVtLONuoZHNV+b6U2Ao7SHXAOx+Ey2dRWWw
NQBT0L4Unuap7RXAms8mWAPSEpe11bsCJv5Zi8LG6/zp4qXx4GUw/42KQ1He
2QzPI4Da9ysOxYkvo+/9imew8M31ErkJaN9mq0TJSkp+3ugj0b3Bo+rlNtsc
SmBSQlQh8f9FBjYu5EkzmukiUekx1U9RUWibDQwdH9OJEAUJbzInayaBSUcp
RUOvZtrDmwfldG5GeRt6q1IZPjxpM0ROZQfA6JyTIoO7fTSYuyTKLNMpJjl2
hYYXZRaAbOJ7JqmbJo7SGzErAUYbJW/F0c3mDDOGRO0ToxpSA6qmpbWzKYGd
oBiHkEZQ7SxtPBVKwpNyc7VsTOYu6BVS0hbyC1sAdr6PPipwQ19B75mSJpFT
2CIaNJM+UhNy3+ncSYTppgDSRFIJOvZ5VZQsaftBHp12MdSOpC3lVmBW4BHd
AlYLSaprI8PfLoL2J+rK2lbQ0Y6GlPtiY6npZrBa2FLdLBn+dhG0P1HX9LaC
jjYwZBmsabwC1pJOEd8N7WhjdY1vPMgRUH7BxJONvRRofCe0OwnanW6MRzcg
lsfMaWBc0E7aeBHA6BjeSQZIbyf4La4HTvJtWVPSJSr9d5JhSh9JKSmCVp59
HLBuLcA2GTT/ieInjgO+rAWYNcbvAF0x583bt+OAF2sBZo1LRU20/m3dAewD
NG/3DU0ZJ3CDosneB2icQ4Mkdd6Ik64Gy6ZIpWXk914t+70MFq+TaJWueqr7
nTv0ldXub7Shese02MksRKFzLOpLIWw1pSPLoQ/qm8y8tabprMxSFjpGo74U
oOiz6uGr58RZ3Q7icoooVmwQyRWdqc6kh2+P7NZaB/CtIBuniDLExpZ8mE7/
oViJ9SLXh1KHTscCG0CUThFFznXFkpgUoiMdnVmHQhnXi0tsvqB9J3SlXNGF
5aQO+nvh5mQz14vLZb7PfafodXLYhYb3IrWnGqFNADvehztjMFUJ0c2WPtxc
bXEL8IGqqIn91rh0l+29ANvpwwOHpDnMwrMR5kV5jneIhsYuXFypuIHVPvrM
PMc7RN22qxRXKmbeR59YeFgLVeuXJlN8dgBWUSj5EGsVvbfdjCq23Zo53Vmp
OUxaDbpagfbWtAv4PR99bl9GodVdAKM9O20VLPrOgvWgg6uTAXacD3fGLzpx
OhlgKe5uvussmGHcK7vv4NgjC2WGlu5+JLNypMGEeG+R+76NPcCLswHmHFZK
h4Umye97YLZnA8wa9kzg0AqA3Qew1/hwZ2xYAbD7AGbhfr1i2uREPpY2Z+3o
RQAfLfaxE6mScs9gits8GKJrpizcdIDhvdviWoBt841nRsNktukSFud4ZrBK
1oQuViGT+kqDhv8Gup19srGtPnQkG9O/YsKLii5f5Rsmm045jGQw6UIq5zAZ
B2KoNkQan7ajQoJ0uK5v+g4QdoZB2HcAu9VnV26qUh+HZfB3w7qc7BuDHBXW
uNPprW8Ms4CdXhKwUIfHvHwh9eXAPKUuLoPd6uy7zkeDefBKdo5yTNTXSQNk
EDtFn/QNEmgLI036m4jla1+4MV5j0Lo3F94s/KerBslnOMfAEJ6OychPWGNc
DbLyaV+fbC7OPmbtJ/lyKuA9JpcLCsLL7YtM09uc60S1t+X4WpSdjd814W9z
rhxVyx7DUg2bNnnWbwFuau9sapltuu5ohdJ+qY82OBnRNtrqVUwQyXN7J21g
nbRNtllGQkW/KxS0FpkUsCvfrpX2yWiw+tDBiCYqlGm7zzeGO+9C2TLnGHM8
B1hKc0znpjoe2oisMuj84yhONO9mJY29D3EORyxoVrzY2xBruPc6zLl1uvxe
h0l24lANrIWDtuiUnvhTHx4zFZHi6boZegfau1FuMxfMOjPlNYrwpKMlCijp
pgYqA3OOZ26cqX6KKmGs8d4OPFkHsFt9eCB4psDbxJPNIZbBGXdUc0xMonKD
QcL74nB64Z8tEc5h9MI8WxCsYf4IOEBRLMEO+HCbuyiCOXGbdaly1XjjbRK6
44rsi/IlSuH5NxF9/VSaTADF5k709Q0/aTwF4Rb6R3RtKosry+ODemHR9OR4
X/h9oFsEMXNQ16iltEiqVtHSLnt1ihAiYF5uYgzPh8NHM+lFGe9LLBoP5o7F
bjHMJ0CA6EYEkYw45x4uQZT5lcsdpfQrqoQqkoO/91CkLDzGJGZE4ZzXSwt5
VKgumbcLCMPzcRBF+auj3G9npbjNYj+Kb5y4zZI7imUs3B+GudIejiJb65CD
bvylvRtFu07c2VzpTTvyVeT+rPGeABqv8PXJxrH6fAPofaOvT0ab1eczMA5V
v9CbM07cZuXKZQme7o7mMzAiBXaXGVR8E2Zznq9PRqWzD9QRNIIpiqytkv54
o6RwE//cXlIoUdWDJIqQLVSfg5lc6euTkezsk9FGEQWZ8XMN3F8DeshkO/GY
5tnCkzrE3ho9C9z4faPPFPQheaXqASduc/tH1QMW7idlQ2buA8k5kHSdhIbq
SZgBuTJ6OfIk36wgXYy6kMEs3H8PM/S+Yli7JLSCn+AbMmMBvdxH0dEQG0Dn
kGCWKWhq3I5a3+IJX8hJfLPO4kKSTd7A0VXDTpRSXmQM5m2h/AnMzCqg/AmQ
7uyT0Wb1mT9L+TTM8miAWUXQT8PM6YVaJx7TSlGoVvvm6CynR7ps1e18D+j3
XoFAipyO17Wi34MZk/2moJ02PNaspoETVmHrNMzG2SejjcqayMdaZ7t0WRH5
Uyce009aeJ6HOVhVIM8Dvc4+GW1Wn/mzFf8j6hzVaZp4zJynhec52S7AiuJl
UWk753Cg+nxKa5X3PicqOZ/Ipvi65uPnwATr7PznMBNnn4xaq8/8id5vTqPW
Eb8CCg9I6A==\
\>"]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1114, 442},
WindowMargins->{{41, Automatic}, {72, Automatic}},
PrintingCopies->1,
PrintingPageRange->{Automatic, Automatic},
ShowSelection->True,
FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (June 19, 2007)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[590, 23, 97, 1, 71, "Section"],
Cell[CellGroupData[{
Cell[712, 28, 121, 2, 36, "Subsection"],
Cell[836, 32, 42121, 1209, 1452, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[42994, 1246, 246, 5, 36, "Subsection"],
Cell[CellGroupData[{
Cell[43265, 1255, 228, 5, 31, "Input"],
Cell[43496, 1262, 11828, 202, 349, 4046, 72, "CachedBoxData", "BoxData", \
"Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
